بسم الله الرحمن الرحيم 


الشرح المفصل لعمل مشغل صوت ( متكامل ) 


٠ مقدمة‎ 


الحمد لله الذي جعلني أحيي حتي هذة اللحظة ... الحمد لله حمدا كثير عدد 
نجوم السماء .. وعدد قطرات الماء ... الحمد لله عدد ما كان وما يكون 
وما سيكون وما هو كائن قبل ان يكون .... الحمد لله علي نعمة البصر 
ونعمة السمع ونعمة الاسلام وكفا بها نعمة ... الحمد لله علي كل حال 


كثيرا منا ما يجد في نفسة مرارة لحال أمتنا ويجد كئابة عندما يسمع 
لنكباتها وهفواتها وتاخرها .... ولكن سرعان ما يجد نور بين هذا الظلام 
الشديد ... 

فيجد شباب في مقتبل العمر تعتلي المنابر ... ويري شباب في مقتبل العمر 
تنتج وتبتكر وترفع من همه الكثير من كسالي الامه .... فهنا يزداد 
الانسان املا وبهجه وسرورا ..... وهنا نجد ما نفتخر به ... ولا یقتصر 
تقدمنا علي الشباب ولكن تجد الرجال والشيوخ وحتي الاطفال والنساء 
.... منهم من يمتلك طاقة كبيره لخدمة دينه ووطنة ٠‏ 
وأجد الفرح الشديد عندما يحاول شبابنا أن يساير هذا التقدم الذي سبقنا 
بة الغرب .... وبإذن الله ... ستعود أمتنا كما كانت ... كما وعدنا رسولنا 


وأخر دعوانا أن الحمد لله رب العالمين 


کتب بتاریخ 1-۱ ۲۰٠۱۰‏ 


م إسماعيل علي النجار 
Ismail ali elnaggar‏ 


إهداء 


أهدي هذا الكتاب لأمة محمد لے آله علية وسلم 
وأهديه لمن ربتني وسهرت من أجلي ومن علمتني الكثير والكثير 
إليك أمي الغالية أهدي هذا الكتاب 


وإلي معلمي ... وشيخي ... إلي من غرس في قلبي حب الاسلام وحب 
خدمة المسلمين ... إليك أبي أهدي هذا الكتاب 


وإلي اخواني ... وأخي الاكبر أهدي هذا الكتاب 

وأخيرا أهدية لكل من علمني حرفا ... وكل من أرشدني 

والي هذا المنتدي العملاق الذي علمني كثيرا ... ( منتدي الفيجوال بيسك ) 
وكل العاملين علي تقدمة وتطويره ... إليكم أهدي هذا الكتاب 


سائلا المولي أن يوفقني لما فيه خير 


..... هذا الكتاب يشرح كيفيه عمل مشغل صوت وصورة من الألف للياء 


اللهم بلغت اللهم فاشهد 


تشغىل : 14[ [Soorat Ibrahim‏ 
سورة إبراهيم 


LELE 
ا‎ 


سورة إبراهيم 


مميزات المشروع : 


إمكانيه تکرار الماده المشغله 

يوجد فيه خاصيه السحب والإفلات 

التشغيل المتتالي للمواد المشغله 
NNE CL‏ 


للعلم : 
# البرنامج ليس إحترافيا ولكن يغطي نقاط كثيرة مهمة ولأترك لكم الكثير 
لكي تقموا بتطويرة ... الهدف من البرنامج أنه تعليمي وليس إحترافيا 


للعلم : 


تم الشرح بالصور والتفصيل الملل حتي يتيح الأمر للمبتدئ جدا أن يفهم 
#8 وهناك خطوات مفصلة بطريقه شديدة لتوتيح للمبتدئ جدا أن يتواصل 


نقوم بفتح مشروع جدید 


plore fx 


Project 


Column 


Line 


آ٣‏ 
ا 
اک 
1 
Hi‏ 
2 
کھ 


New Project 


Templates; 


¥isual Studio installed templates 


Class Library WPF WPF Browser 
Application Application 


Wihdoms 
Forms Ar, 


Console 
Application 


My Templates 


Search Online 
Templates, 


û project for creating anı application with a windows user interface CNET Framework 3.5) 


سشخل صوت Mame:‏ 


Fle 


File Edt Yew Tools Window Help 


ê A @ " & 


Express Edition 


Recent Projects 


F1 magicEightball 
DataGrid And ComboBox ûApplicatian 
(RÎRandam Questions 

۱ مسلم سات‎ 
3 Machis Game 


Open: Prdject... 
Create! Projëcts, 


ett Started 


Create Your First Application 

ideo Feature Tour 

Learn YÊ 

What's New? 

Beginner Developer Learning Center 
Download Additional Content 
MEPIBLE: 


Ettar List 


QUErors ۵ OWarnings |i) O Messages 


Description 


ثم نقوم بعمليه إضافة إزرار التشغيل كما هو مبين ( وقد قمت بترقيمها من 
لے ۹ کیا ھی من کی اکل الل 


أما بالنسبه لعمليه تقطيع صور ( للأزرار ) وتصميمها فأتركها لكم فلا 


مجال لذكرها الان 


اذا نقوم بإضافة ٩‏ أزرار كما هو مبين 


Solution Explorer qota soces 


Form System: Windows, Forms, Form 


adding O; 00j 0 
RightToLeft Mo 
RightToLeftLayo False 


Showlcon True 
ShowInTaskbar True 
Size 452; 462 


Sizearipstyle: Auto 
StartPosition WindowsDef all 


Tag 

Text Form1 
_ TopMost False 
Text 


The text associated with the control, 


15,15 


File Line Column Project 


Format Tools 


+ 


He mo tb 


Bulg Debug Data 


TENE 


0 O Messages 


Fle Edt View Project 
EEE 
E + Am # 


xet SE 


Errorti 
Querars AD Wamings 


Description 


نقوم الان بإدراج ( الميديا بلير للبرنامج ) وتتم عملية الإضافة كالتالي 


تابح معي الصور التاليه 
أولا نضغط ( كليك يمين ) علي ي عنصر في ×0ط 1اoم)t‏ تظھر لنا 


قائمه .... نختار منھا ( کصع) میممطء ) کما هو موضح 


Microsoft Visual Basic 2008 [xpress Cdition‏ - مسقل صوت 


File Edt wew Project Buld Debug Data Tools Window Help 


TE a: A @ 8 
ê #* AT # LF FUE 0 E 1 ك‎ 
x EEE] +× x 
ı1 Al Windows Form all 
| F Pointer تڪ‎ 
£  Barkgroundwa | || List view My Project 
ly Bindingilavigatı Show All Formi.vh 
T3 BindngSour ce 
Button 
a Sart Items Alphabetically 
E checkedlistBo: Reset Toolbox 
& colormialog Add Tab 
zê ComboBox Delete Tab 
E CantextMenust Rename Tab 
| Datagridview ي‎ 
|] Dataset 
TF DateTimePicker REE BE 


[Î] DirectoryEntry 
E DirectorySearcher 
[| š DomainUpDown 
O FrrorProvider 

fa] Eventkog 
FilesystemWatcher 


solution Explorer [qt SUES 


HX 


Formi1 System. Windows. Forms, Form. 


8 
8 


Padding 0;0; 


` FlowLayoutPanel RightToLeft No 
Î3] FalderêrowserDialog RightToLeftLayo False 
TÊ Suing Showtcon True 
2 ٤ ShowinTaskbar True 
[| GroupBox Size 452; 462 
HelpProvider Sizegripstylê Auta 
€ HSrralBar StartPasitian _ WindowsDefaultl 
{aj Imagelist Tag 
A Label Text ب‎ 
A LinkLabel __ post False ا‎ 
2 Text 
کک ا‎ Column Project The text associated with the control, 
* Listlew 


LR a 


Ready 


تظهر لنا قائمة أخري نضغط علي ... sا7 cm comp 02e‏ كما هو 


Micros isal Basic 2008 Express Edition‏ - مشفل صوت 
File Edit view Project Build Debug Data Tools Window Help‏ 


DE a RAF 


7 | ھچ 8 


xe ilo r 


E ot x HR xX 
۴ 
7 |All Windows Forms 
ع‎ 
ع‎ Pointer 
٤ kk Paint مشغل صوت‎ 
EF Backaroundwerker Ba My Project 
j BindingNavigator E] Formi.vh 
TÎ BindngSource 
Button 
| heckBox 
ES CheckedListBox Library 
[E culorbialoa - ا 1 س‎ 
E O + videasaft Flexstring Control CHIWINDOWS|system32\VSFLEXN3.OCXN  :-} VideoSaft vs... 
Û hctionBvr Class CIWINDOWS|system321lmrt dll 
EE I ArtivexPlugin Object CAWINDOWSIsystem321plugin, ox microsoft Active. 
lj Datagridview Û Actorëwr Class CIWINDOWSIsystem32\lmrt dll 
la] Dataset Û adbanner Class CIWINDOWYS|system321msdbm,oCe 
TE DateTimePicker [I Adobe PDF Reader C:\Program Files\Common Fileslûdob.,. Adobe Acrobat ... 
ew  AgControl Class C:\Program Files\Microsoft Silverlight, ,, AgContral 1.01... qsoluen Exnlorer jE EE 
E O Apple QuickTime Control 2,0 C:\Program Flles|QuickTimelGTOCon, ,, Apple QuickTim,.. 
2 O Behavior Object C:\Program Files QuickTimelGQTPlugin. EEE: 
lL šÎ DomainUpDown > EN ۴ 
٤ آ6ا‎ 1l Formi System: Windows.Forms,Forr ¥ 
O ErrorProvider لا‎ 
{| Eventkog =) YideaSoft FlexArray Contral IE # |B 
Filesystemwateher E E Padding 0; 0j 
#*™ FlowL ayoutPanel Version: 30 RightToLeft No 
Î FulderëronserDialog RightToLeftLaya False 
E Fun Showleon True 
e ShowinTaskbar True 
I] GroupBox Size 452; 462 
HelpPravider SizeGripStyle: Auto 
€5 HSrralBar StartPosition  WindomsDefaultL | 
i Imagelist 0 3 
A Label e 2 
TopMast False 
A Linkkabel 
2 Text 
EE 8 7 EF EE The text associated with the control, 
23 iste le ine Dlumn ajel 


IRI aces dross, 


Ready 


Choose Toolbox Items 


| NET Eramewark Components | COM Components WPF Comiponehts | 


| Name Path 

!-J VideoSoaft FlexArray Control C:\(WINDOWS\System3A\YSFLEX3 OCX :-) VideoSoft vs 
ı-} YideoSoft FlexString Control C\WINDOWSIsystemSA\VSFLEXNS OCS 1} VideoSoft ¥5. 
ActlonBvr Class CI \WINDOWSIsystem32\lmrt. dil 

ActiveXPlugin Object CH \WINDOWS\systern32\plugin. ocx Microsoft Active... 
Actorêvr Class C\WINDOWSIsystem32\lmrt. dll 

afbanner Class CIWINDOWSISystem32\msdxm.ûcx 

Adobe POF Reader C:\Program Files\Common Files\lAadob,,, Adobe Acrobat ,.. 
AgControl Class C:\Program Files\Microsoft Silverlight... AgControl L.0 T... 
Apple QuickTime Control 2.0 C:\Program Fles\QuickTims\QTOCon.., Apple QuickTim... 
Behavior Object Ci {Program Files QuickTime QTPlugin, 

ا ا ج ا ت ۱ 1 


:-) videoSoft FlexArray Control 


ًı\ OO DOD O O O O DB O ® 


Language: Language Neutral 


Yersion: 3.0 


Windows media player ..... نختار‎ 


TT. 


Choose Toolbox Items 


اا 


| \NETFEramework: Components COM Components (WPE:Cempanents | 


Path Library 
WebYiewFolderIcon Class CH WINDOWS\sSYstem32\webwn, dll 

WIA Video Preview Class CIWINDOWS\system321camocx , dll 

Windows Media Player CAWINDOWSIsYstem32mp . dll Windows Media ... 
Wizcombo Class Ci\Program Files\Microsoft Visual SEU... YCWiz 9,0 TYPE... 
Yahoo! Audio Conferencing C:\Program Files\Yahoo!\Messengerl... Yacscom 1,0 TY... 


2 
u 
3 
mM 


Yahoo! Audio Slider Ci\Program Files\Yahoo!\Messenger\,... 
Yahoo! Audio UI1 CiProgram Files ahoo!\Messengerl,.,. Y¥acsui 1,0 T¥pe... 
Yahoo! YU Meter CH Program Files\Yahoo!\Messengerl,.. 


Yahoo! Webcam Upload CiProgram Files\lYahoo!Messengerl... Yahoo! Webca... 
Yahoo! Webcam Yiewer C:\Program Files\Yahoo!\Messengerl... Yahoo! Webca... ا‎ 


1 . : | a 


S0000000 ROO 


^A 


:-) YideoSoft FlexÃûrray Control 
Language: Language Neutral 


Version: 3.0 


ثم نضغط 
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EET  @& 


iz All Windows Förms 
Kk Painter 

3 Barkgroundwarker 
lg Bindinghlavigator 
Î BindngSourte 


TSE] 


My Project 
FF Formi.vh 


Choose Toolbox Items 


Button [.nET Framework Campanents | COM Components wPF Campanents | 
] EheckBox 
EZ cCheckedListBox Name Path Library 
E] calorDialoa O WebiewFalderlean Class CHIWINDOWS|system a21 webvww, dll 
3 CotboBox O Wû Video Preview Claas CHIWINDOWS|sy stem 32 came. dll 
 windons Media Player CHIWINDOWS|system32twmp.dll wîndows Media . 
E ContextenuStrin E Wttombe Class tijProgramFEsIMctosbft Visual Si..,, CRE .0-Tbe.. 
|j Datagridview Û Yahoo! Audio Conferencing C:\Program Fles\Yahoo!\Messenger|.,. yacscom LÛ Ty... 
|] DataSet O Yahoo! Audie Sider cilpragram Fles\rahao!Messenget|, .. 
TÎ DateTinePicker O Yahoo! Audio UI cı\program Fles\ahoo!Messengerl,..  yacsul 1.0 Type... 
es O Yahoo! WU Meter Cı\Program Fles|ahao!iMessenger|. Solution Explorer a ores 
BT O Yahoo! webcam Upload Ciiprogram Fles\vahoa!{Messenger,. Yahoo! Webcar, 
Es I Yahoo! webcam viewer Cı\Program Fles\Yahoo!!Messenger|.. Yahoo! Webcar.. 
11 0 1 5 Farmi System. Windors.Forms, For = 

O FrrorProvider 1 
ia Eventkog ideoSoft Flexarray Control 244] 
Z| Fiesystemwatcher e E Padding 0j 0: 3 
#* FlwLayoutPanel ا‎ RightToLeft No أ‎ 
Î2] FolderërowserDialog ا‎ 

Showicon True 
lal orto ShowinTaskbar True 
[I] GroupBox Size 452; 462 


HelpProvider SizeeripStyle Auto 


5î HSeralBar StartPasitian WindowsDefaultl 
[aj ImageList Tag 
A Label Text ب‎ 
A Linklabel Topmast False 
inkLabel 
1 Text 
FJ ListBox ex 


The text associated with the control, 


Column Project 


ListView 
LIT acl Taran ا‎ 
Ready 
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TE aA FAK B8 


: E × 
TF Propertyarid 


@ RadioButton 

lî RichTextBaxe 

Î saverileDialag 
Ê seralPort 

gl servlcecontraller 


xopan $| 


My Project 
] Formi.vh 


| splitcontainer 
efe splitter 

la statusstrip 

[7 Tabcortrol 

= TableLayoutPanel 
abl TextBost 

€ mer 

Tooltip 

TÎ ToclstripContalner 
Hk, Tooltip 


Solution Explorer ORE EES 
3 امنا‎ 


HX 


21 


Padding 
RightToLeft No 
RightToLeftLayn False 


[E WebBronser 
O Windows Media Player 
3 Carmmımon Control: 


K Pont Windows Media Player Showleon True 

2 Wersion 1,0 from Microsoft Corporation ShowInTaskbar True 
e شي‎ Size 452; 462 
2] checteon N O us EE 
E CheckedListtox StartPasitian  WindowsDefaultl 
E ComboBox Tag 
TE DateTimePicker E 3 
A Label 

Text 

Li 1 
A LinkLabel 1 The text associated with the control, 
E ListBox File Line Column Project 


Ready 


وبتقريب أكثر 


E] SaveFileDialog 
gê SerialPort 

dl ServiceContraller 
LÛ SplitContainer 
+|+ Splitter 

ll statusstrip 

[7 TabControl 

2> TableLayoutPanel 
abl Textêûx 

Timer 

a0 ToolStrip 


TT ToalStripContainer 
Rk ToolTip 

9- TrackBar 

3> Treeview 

vScrolBar‏ ج 


ER WwebBrowsêr 


| 0 windows Media Player 


ll Common Controls 
Windows Media Player 


K Pointer Version 1.0 from Microsoft Corporation 
Button LOM Component 


CheckBox 
8:2 CheckedListBox 


z2 ComboBox 


windows Media Player Corê 


نقوم بسحبها إلي الفورم كما هو موضح 
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ë a-g & 9 ۶ 


i 


“Form1.wb [Design]" | Sart Page. 


|| Salen Explorer 


ropenies ETE: 


Formi1 System, Windows.Forms,Fornr 


1 

Form1 
|j Bcepteuttan (none) 1 

ArcessibleDescrî 

AccessibleName 

AcressibleRole Default 
| alowpron False 
ا‎ AutoScaleMade Font 
AutoSerall False 
AutoSerolMargir 0; O 
Error kist AutoSerallminsiz 0; O اا‎ 


QuEnors) f@0 Warnings | (Ci) 0 Messages (DataBindings) 
The data bindings for the control, 


Description File Line column Project 


Ready 15, 15 zi BI0 x 504 


الان نريد اخفاء الازرار أسفل مشغل الصوت 


يتم کالتالي 


نغير الخاصيه مل1M0ن‏ إلي ع000 ...... 


File. Edt wew Project Build Debug Data Isls window Help 


ظ ا هخ # @ Iê &- WH‏ 


مشغل صوت ا 
EA] My Project‏ 
 Farml.vh‏ 


Gq Solution Explorer 


21 AE 

stretchToFE False 3 
Tabindex ۹ 

Tabstop Tue 

Tag 

limos bone] 

URL 

UseWwaitCursor False 


Yisible True 


windowlassYidec False 


1 
Qofrors jo warnings 


Description File Line Column Project 


O Messaqês uiMode 


Ready 


وبتقريب أكثر 


1 


AuWwindowsMediaPlayerl AxWMF > 


GE 


stretchToFit False 3 
TabIndex 9 
Tabstop Tre 
Tag 
oc 
URL 
UseWaitCursor False 
vêrsiqorinfa 4.0:0.3250 
چ‎ visible True 
windowlessvidec False 
۳ 


uiMode 


| Fle line Colmn Project 


ثم نقوم بإضافة rac)8a211‏ 1 و 21۲2 rac)8اآ‏ کما هو موضح بالصورة 
التالبة 
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e 3٠ ت 2 ك‎ 


Ea) My Project 
E] Formi.vh 


| qolon Explorer 


Ereben: TE: 


Formi1 System, Windows.Forms, Form. 


21 


TrackBarl yTrackE art2 | E (hpplicationsetti أ‎ 

(DataBindings) آ3‎ 

|| (Mame) Form 
AcceptButton (none) 
AccessibleDeserî 
AcressibleNlamz 


ArcessibleRols Default 
AllowDrop False 
AutaScaleMade Font 


el 

el Rutoserall False 
Error tist li SB Autoseralmargir o; 0 اا‎ 
QuEnors) 0 Warnings | (Ci) 0 Messages (Name) 


Indicates the name used in code ko 


Description File Line Column Project HERU Ihe cE jeêE 


Ready 


1 مغل صوت‎ - Microsoft Visual Basic 2008 [xpress Ldition 
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a 0 ۴‏ ك 2۰ چ ج 


i 


| EA] My Project 
E] Formi.vh 


ListBox 


|| Label1 System. Windows, Forms, Labe > 


| UE # 

||  AlomDrop False اھ‎ 
Anchor Top, Left 
AutoEllipsis False 


2 


Backcolor Control 
Borderstyles None 

| Causesvalidatior True 
CortextMeruStr (nane) 


Cursor Default 

Dark Mone 

Enabled True أ‎ 
QuEnars|) A0 Warnings | (Ui) 0 Messages AutoSize 


Enables automatic resizing based on 


Description Fle Eê الشاا‎ EE Fant size. Nate that this is anly valid F. 


Ready 


ثم نقوم بإضافة 1 ع1 
تم إضاغفة open file dialog‏ 


مع تغير الخاصيه (عصهم) الي مه للأخير 


كما هو في الصورة التالية 
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2 -@ ا ك @ a‏ چ ف 


3| A FEMLSET Farm1.vb [Design| 


ListBoxt 


EA) My Project 
E] Formi.vh 


|| 3Foluen Explorer 


| 

| EES 

e] 3 IE Formi System. Windowrs.Forms,Forrr =‏ کا 

7 8 9 Labêlt | NEG 

les) || E (DataBindings) اھ‎ 

(Name) Forml آ3‎ 

AcceptButtan (none) 

ArcessibleDeszri 

ActessibleName 
AecessihleRoale Default 

Û Timer Elona س‎ AllowDrep Falsé 


Auto5SralêMade Font 


AukoSerall False 
. AutoSerallMargir O; O 
Error kist Autoserallminsiz: O; O أ‎ 
@QuEnars) A0 Warnings | (Ui) 0 Messages (Name) 
1 Indicates the name used in code ko 
Description File Line column Project EEE 
Ready 


قبل ان ننتقل للنقطه الاهم وهي إضافة الأكواد لبرنامجنا ... 
أريد توضيح وظائف بعض العناصر التي تم إضافتها للفورم 


حتي نزيل الغموض عن بعض العناصر المجهوله 


أولا لاحظنا أن بعض العناصر عند إضافتها تمت الإضافة الي الفورم 
N TR aT‏ 
معي مثلا ال إعص1) هو من العناصر التي لا تظهر عند ند تشغيل التطبيق 
لذلك لم تضاف فوق الفورم 


عكس الحال في الفيجوال بيسك حيث انه كان يتم إضافة كل العناصر 
أكثر سهوله وترتيبا في الدوت نت 
الان نسرد العناصر سريعا وما وظيفة كل منها في برنامجنا 


أو لا الأزرار 


(ستع] دتا ست )سد اسسا 


سد ل )س = 


اا ا 


وه ار فق ل اتا ا اا ك هر 
رهام) للصوت أو الفيديو 


سنخصص هذا الزر لعمل إيقاف للصوت أو الفيديو بإختصار يقوم بعمل ( 
مهاء) للصوت أو الفيديو 


تحص فا لار لف ت اوقت الوت أي الايخي 


سنخصص هذا الزر لتسريع التشغيل للأمام ( للصوت أو الفيدير) 


1 Ê : 


لفتح مادة صوتية أو مرئية من الكمبيوتر 


رقم ۷ لعمل الصوت صامت وإعادتة لما كان علية مرة أخري 


ثانيا باقي العناصر 


اھ := 0 

ListBox! 

. 0 
Label 


وظيفة ال 1 ×0ط]ء]] فائدتها ( هي تعتبر ء11 رهام التي توضع فيها 
المواد المراد تشغيلها ) 


أما بالنسبة لل 1 1عطه]1 سنجعلها لإظهار ( إسم المادة المشغلة وكذلك 
زمن التشغيل ) 


اا 


قل لى فة الصوت رأبضا المانة المشاه 


اا 


Timer i EE opd 


أولا سنتكلم عن وظيفة 
allكjg OpenFileDialog‏ 
للحصول على ملف أو امتداد معين من الملفات من قرص معين من 


مجلد معين في الكمبيوتر للملفات الموجودة مسبقا. 


برنامجنا .... ناتي إلي ( روح البرنامج ) فالان البرنامج جسد بلا روح 


نأتي الان الي المرحلة الأهم وهي مرحلة كتابة الأكواد 
هل أنت جاهز الأن لخوض الحرب من أجل فهم هذة الأكواد 


إن كانت الإجابة بنعم ...... إذا هي الحرب 


ا گن عملية الاكواد 


أولا قم بتغير خاصية ع ”هم في الميديا بلير إلي ( إعرهام) كما في 


@ مسل صو‎ - Microsoft Visual Basic 2008 [xpress Cdition 


File Edt wew Project Buld Debug Data Tools Window Help 
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2 Farmi ya * Form1.¥b [Design] i solution Explorer RX 
٣ a | è E EE 
| مشخ صوت آ3‎ 

Ea) My Project 

E] Farmi.vh 


ListBox1 


|| Solution Explorer E ee 
آ‎ 
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Description File Line column Project 


أولا قبل كل شئ ( لاحظ الترتيب في وضع الأكواد حتي لا يحدث أخطاء ) 


أولا سنقوم بكتابة كود الزر رقم ٠‏ ( المسؤول عن عملية فتح الملفات 
الصوتية ) 


وهو 6 ١0))اطا‏ في الکود 


ل 


نفتح محرر الکود لل 6 but)٥٥‏ 


Private Sub Buttoné6_Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button6.Click 


نقوم بكتابة الكود هنا 


Endsub 
اانا للحدث‎ ٥۸6 ٦ نلاحظ أن هذا الکود خاص بالکومند رقم‎ 
LTC 
نقوم بكتابة الكود التالي‎ 
Try 
opd.InitialDirectory = "my music" 
opd.Filter = "Media Files 


(*.wav; *.mp3; *.mp4; *.mpeg; *.dat; *.wma; *.wmv; *.rm; *.ram;*.avi;*.asf;*. 


3gp; *.mov;*.divx;*.swf;*.flv;*.bmp; *.png;*.JP9; *.jepg;*.gGif) |*.wav; * 
mp3; *.mp4; *.mpeg; *.dat; *.wma; *.wmv;*.rm; *.ram;*.avi; *.asf; *.39p; *.mov 


;*.divx;*.sawf;*.Elv; *:bmp; *.png; *. jpg; *. Jepg; *:gGif|ALL 
Windows.Forms.DialogResult. OK Then 


Files (*.*) |*.*" 
If opd. ShowDialog () 
= opd.FileName 


player. URL 
player.Ctlcontrols.play () 


End If 
Catch ex As Exception 
MessageBox. Show ("Some error occur so can't play media", 


"Error", MessageBoxButtons. OK, MessageBoxIcon.Error) 


End Try 


ليكون الكود كاملا كالتالي 


Private Sub Button6_Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button6.Click 


Try 
opd.InitialDirectory = "my music" 
opd.Filter = "Media Files 

(*.wav; *.mp3; *.mp4; *.mpeg; *.dat; *.wma; *.wmv; *.rm; *.ram;*.avi;*.asf;*. 
3gp; *.mov;*.divx;*.swf;*.flv; *.bmp; *.png;*.jpPg;*.jepg; *.gif) |*.wav; * 
mp3; *.mp4; *.mpeg; *.dat; *.wma; *.wmv; *.rm; *.ram; *.avi;*.asf; *.39pP; *.mov 


FF .diVE; SWE; ELV; *. Bmp; *.phiO;*. jP; *. epg; * :oG1f |ALL 
Windows.Forms.DialogResult. OK Then 


Files(*.*) |*.*" 
If opd.ShowDialog () 
= opd.FileName 


player. URL 
player.Ctlcontrols.play () 


End If 
Catch ex As Exception 
MessageBox. Show ("Some error occur so can't play media", 
"Error", MessageBoxButtons. OK, MessageBoxIcon.Error) 


End Try 
End Sub 


نقوم الان بشرح أهم ما في الكود 


قد يري المبتدئ هذا الكود بمثابت جبل قد ينهار فوقه ... ولكن 
الشرح بإذن الله 


ستجده كالذبابة علي انفك تهشها ....... 


لعل 


» 


أو لا فی بداية الكود نخد 


كلمة رع وفي نهاية الكود نجد طعءعخهعء والفائدة هي إصتياد 
الأخطاء 


يتم إصتياد الأخطاء كالتالي أو استخدام هذا الاسلوب لإصتياد الأخطاء 
کا 


1y 

الجمله البرمجية التي قد يحدث بسببها خطاً ما 

Catch 

نضع هنا الجمله التي نريد تنفيذها عند حدوث الخطأ المتوقع 
End Try‏ 


أن يخلو برنامجك من أي خطأ متوقع او غير متوقع .... 
لا تنظر انفسك .. فقد خلقك الله لك العقل وقد تري أخطاء بسيطه 


E E 
باأنسبه للانسان دعدبر مصيډه من مصائب العصر‎ Hoes الغبي‎ 
) ذلك لا تتهاون في عمليه صيد الأخطاء بإستخدام هذه الجمل‎ 


نقوم الان بشرح باقي الكود 


نقوم بشرح هذه الجزئية 


opd.InitialDirectory = "my music" 
opd.Filter = "Media Files 
(*.wav; *.mp3; *.mp4; *.mpeg; *.dat; *.wma; *.wmv;*.rm; *.ram; *.avi;*.asf;*. 
39P; *.mov;*.divx;*.swf;*.flv; *.bmp; *.png;*.jJP9; *. Jepg; *.gif) |*.wav; * 
mp3; *.mp4; *.mpeg; *.dat; *.wma; *.wmv; *.rm; *.ram; *.avi;*.asf; *.39pP; *.mov 
;*.divx;*.swf;*.flv; *.bmp; *.png;*.jJP9g; *.jJepg;*.gif|AllL 
Files (*.*) |*.*" 
If opd.ShowDialog() = Windows.Forms.DialogResult.OK Then 
player.URL = opd.FileName 
player.Ctlcontrols.play () 


هل نتذكر هذه الصورة في بداية كتابنا ...... لنرجع قليلا بالذاكرة لنتذكر 
هده الصورة 


Timer i 8 opd 


جميل .... أظن اننا تذكرناها جيدا .... نعم ... ونرجع أيضا لنتذكر هذه 
ال 


.... ثم إضlفة open file dialog‏ 
مع تغير الخاصيه (عصهم) الي 4مہ للأخير 0 
جميل جدا أيضا 


ونرجع للمرة الأخيرة لنتذكر فائدة هذا المكون 


anllكgرj OpenFileDialog‏ 
للحصول على ملف أو امتداد معين من الملفات من قرص معين من 
مجلد معين في الكمبيوتر للملفات الموجودة مسبقا. 


نبداً في شرح أهم ما في الكود السابق 


opd.Filter = "Media Files 
(*.wav; *.mp3; *.mp4; *.mpeg; *.dat; *.wma; *.wmv; *.rm; *.ram;*.avi;*.asf;*. 
3gp; *.mov;*.divx;*.swfÊ;*.flv;*.bmp; *.png;*.jJP9; *.jepg;*.gif) |*.wav;*. 
mp3; *.mp4; *.mpeg; *.dat; *.wma; *.wmv; *.rm; *.ram;j*.avi;j*.asf; *.39pP; *.mov 
FF QIVEF.SHE; XK. EIV; * Bmp; *.pnO;™*. Jpg; *: Jepg;*:Gi1f|ALL 
Files (*.*) |*.*" 


opd.Filter 


ا 
وفي الكود السابق قمت باختیار عدد کبیر من صيح لصوت وكذلك 
الفيديو .... وأيضا صيغ الصور a‏ 


باقي الكود 


If opd.ShowDialog() = Windows.Forms.DialogResult.OK Then 


معناه اذا تم اختيار احد الصيغ التالية فقم بالتالي 


player.URL = opd.FileName 
player.Ctlcontrols.play () 


a لشرح هذه الجزئية‎ 
player.URL = opd.FileName 


هل نتذكر عندما نريد ان نفتح رابط من شبكه الانترنت كان الكود كالتالي 


"الرابط المياشر من الlنتjنتaت‏ " = player. URL‏ 


وكذلك لو أردنا أن نفتح ماده معينه ... عن طريق مسار معين للملف 


"مسار الملف الصوتي " = 


player. URL 


بهذا نكون قد انتهينا من شرح أول اكواد البرنامج 


Private Sub Button6_Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button6.Click 
Try 
opd.InitialDirectory = "my music" 
opd.Filter "Media Files 
(*.wav; *.mp3; *.mp4; *.mpeg; *.dat; *.wma; *.wmv; *.rm; *.ram;*.avi;j*.asf;*. 
3gp; *.mov;*.divx;*.swf;*.flv;*.bmp; *.png;*. jP; *.jJepg; *.gif) |*.wav; * 


mp3; *.mp4; *.mpeg; *.dat; *.wma; *.wmv; *.rm; *.ram;*.avi;*.asf; *.39pP; *.mov 


;*.divx;*.swf;*.flv; *.bmp; *.png;*.jJP9; *.Jepg;*.gif|AllL 
Windows.Forms.DialogResult.OK Then 


Files (*.*) |*.*" 
If opd.ShowDialog () 
= opd.FileName 


player. URL 
player.Ctlcontrols.play () 


End If 
Catch ex As Exception 
MessageBox. Show ("Some error occur so can't play media", 
"Error", MessageBoxButtons. OK, MessageBoxIcon.Error) 


End Try 
End Sub 


... وأظنة الاصعب بالنسبة لباقي الأكواد ...... إذا نستريح قليلا ... 
ونعود بعد ان نتناول كوب من القهوه ..... 


عدنا بفضل اللہ 


ننتقل الان الي باقي اكواد البرنامج 


نبدأ بكود تشغيل الملف الصوتي 


اض هار ل ا اا ا ا ی 
وهام) للصوت أو الفيديو 


نفتح محرر الكود الخاص بهذا الزر ليكون کالتالی 


Private Sub Button1 Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1.Click 


End Sub 
الحذدث‎ B1 1 نلاحظ أن هذا الكود خاص بالكومند رقم‎ 
GL LER 


نقوم بكتابة هذا الكود 


player.Ctlcontrols.play ()‏ 
ليكون الكود الكامل كالتالى 


Private Sub Button1l Click (ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button1.Click 


player.Ctlcontrols.play () 


End Sub 


أتوقع انه كود بسيط جدا بالنسبة للكود السابق وهو يقوم بتشغيل المادة 
الصوتيه 


ثم نتجة سريعا الي كود إيقاف المادة الصوتية 


مهاء) للصوت أو الفيديو 


Private Sub Button2 Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button2.Click 


End Sub 


نلاحظ أن هذا الكود خاص بالكومند رقم ۲ mal BULTLoORD‏ 
E‏ 


نقوم بكتابة هذا الكود 


player.Ctlcontrols. stop () 


ليكون الكود الكامل كالتالي 


Private Sub Button2 Click (ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button2.Click 


player.Ctlcontrols. stop () 


End Sub 


وأيضا الكود بسيط جدا 


كود الايقاف المؤقت للمادة الصوتية 


تصن ها ار لفل اقات فت الوت اف 


نفتح محرر الكود الخاص بهذا الزر ليكون كالتالي 


Private Sub Button3_ Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button3.Click 


End Sub 


نلاحظ أن هذا الكود خاص بالكومند رقم ۳ B5‏ للحت 
CELTE‏ 


نقوم بكتابة هذا الكود 


player.Ctlcontrols.pause () 


ليكون الكود الكامل كالتالي 


Private Sub Button3_ Click (ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button3.Click 


player.Ctlcontrols.pause () 
End Sub 


وأيضا الكود بسيط جدا 


كود لتسريع التشغيل للامام 


سنخصص هذا الزر لتسريع التشغيل للأمام ( للصوت أو الفيديو) 


نفتح محرر الكود الخاص بهذا الزر ليكون کالتالي 


Private Sub Button4 Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button4.Click 


End Sub 


نلاحظ أن هذا الكود خاص بالكومند رقم 4 o4‏ ا But‏ الحدث 
ICE‏ 


نقوم بكتابة هذا الكود 
player.Ctlcontrols.fastForward ()‏ 


ليكون الكود الكامل كالتالي 


Private Sub Button4 Click (ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button4.Click 


player.Ctlcontrols. fastForward () 
End Sub 


کوک لتسريع اأ غا 1 ا 


تقض ها الزر لسرم اللففل الخاف ( للصرت أو الفتين 


نفتح محرر الكود الخاص بهذا الزر ليكون كالتالي 


Private Sub Button4 Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button4.Click 


End Sub 


نلاحظ أن هذا الكود خاص بالكومند رقم ٥‏ 5 للخت 
ICE‏ 


نقوم بكتابة هذا الكود 
player.Ctlcontrols. fastReverse ()‏ 


ليكون الكود الكامل كالتالي 


Private Sub ButtonS5_ Click (ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button5.Click 


player.Ctlcontrols. fastReverse () 


End Sub 


ا الى كود رقع الصوت وخفضة وكتم الصوت 


رقم ۷ لعمل الصوت صامت وإعادتة لما كان علية مرة أخري 
رقم ۸ لخفض الصوت 

رقم ٩‏ لرفع الصوت 

كود رفع الصوت كالتالي 

وهو الزر ٩‏ 9 ہہ)اbut‏ 


Private Sub Button9_ Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button9.Click 


End Sub 


ثم نضيف الكود الخاص برفع الصوت 


player.settings.volume = player.settings.volume + 10 
Me.TrackBar2.Value = Me.player.settings. volume 


ليكون الكود الكلي 
Private Sub Button9_ Click (ByVal sender As System.Object, ByVal e As‏ 


System.EventArgs) Handles Button9.Click 


player.settings.volume = player.settings.volume + 10 
Me.TrackBar2.Value = Me.player.settings. volume 


End Sub 


گرد فش الصرت کال 


وهو الزر ۸ § button‏ 


Private Sub Button8_ Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button8.Click 


End Sub 


ثم نضيف الكود الخاص برفع الصوت 


player.settings.volume = player.settings.volume ¬ 10 
Me.TrackBar2.Value = Me.player.settings.volume 


ليكون الكود الكلي 


Private Sub Button8_ Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button8.Click 


player.settings.volume = player.settings.volume —- 10 
Me.TrackBar2.Value = Me.player.settings.volume 


End Sub 
نلاحظ الإختلاف الوحيد في الكود الخاص برفع الصوت وخفضة هو فقط‎ 
علامة + وعلامة - هذا هو الإختلاف الوحيد‎ 


ولو رأيك للكود في اللغة الرائعه دوت نت لوجدت الأمر بسيط جدا ... 
بعكس ما يتوقعة الكثير بصعوبة هذة اللغة ( الممتعة بحق ) 


ونلاحظ الربط بين تيم TrackBar2‏ 
بزيادة أو نقص أعدادات الصوت 


نأتي الأن لكود كتم الصوت أو جعلة صامت 
كالعادة نتجة لمحرر اللصوت الخاص بالزر رقم ۷ 


Private Sub Button7_Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button7.Click 


End Sub 


نقوم بإضافة الكود التالي 


If Me.player.settings.mute = False Then 
Me.player.settings.mute = True 


Me.TrackBar2.Enabled = False 
Else 
Me.player.settings.mute = False 


Me.TrackBar2.Enabled = True 
End If 


ليكون الكود الكلي 


Private Sub Button7_Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button7.Click 


If Me.player.settings.mute = False Then 
Me.player.settings.mute = True 
Me.TrackBar2.Enabled = False 
Else 


Me.player.settings.mute = False 


Me.TrackBar2.Enabled = True 
End If 


End Sub 


n 


If Me.player.settings.mute = False 


لو إعدادات مشغل الصوت .. لیس صامت 


Me.player.settings.mute = True 


إذا إجعل مشغل الصوت صامت 
وأيضا لا تقوم بتفعیل 
TrackBar2‏ 


ء 
ای انù‏ 
Me.TrackBar2.Enabled = false‏ 


لو غير ذلك إفعل العكس 


Me.player.settings.mute = False 


Me.TrackBar2.Enabled = True 


الأن ردد معي ... الحمد لله رب العالمين ... فقد إنتهينا من الكثير وبقي 
القليل .... ولكن الجزء المتبقي يحتاج تركيز أكبر بكثير مما سبق 


لذلك ... حان وقت تناول فنجان أخر من القهوة ... لکي نعود أكثر 
نشاطا e‏ 


الأن أصبح عندك مشغل صوت حقيقي ... يقوم بالتالي 
تشغيل الملفات الصوتية مع أمكانية الأيقاف والأيقاف المؤقت .. والكثير 
ولكن كما وعدناكم في بداية كتابي أن تكون هناك من المميزات الكثيره 


وجود خمس أشكال للمشغل oon‏ 


وقبل الانتقال للاكواد الجديده تعالوا نجرب البرنامج ونري طريقة تعاملة 
وماذا ينقصة 
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Farmat Tools Table 
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EE aA 


Fs ر کے‎ 
۲ 3 
REE E 2 


hak: Maher Al Mea‏ القار ماهد الەعىقلى :5م 
Album Title: wum.islamway.comfquranicaudio.com‏ 
Year;‏ 

Duration: OO:2 1:47 

Type: MP3 Format Sound 

Bit Rate: 32kbps 

Protected: No 

Size; 4,98 ME 


My Documents ۵ 
01| 


E 


My Computer 


Dir 


Media Files f wav mp3? mp4. mpeg: dat". | 


نلاحظ تشغيل الملف الصوتي 


IESG ANE RENEE WOT 


a 


بفضل الله يمكن تجريب جميع الازرار ( وكله تمام ) 


والإستمتاع بصوت القران الكريم ... وإياك أن تستخدمه فيما يغضب ربك 


بقي عيب خطير يجب إصلاحه .... أولا عند محاولة رفع الصوت بتحريك 


نجده لا يستجيب لنا ... ولكن لا يستجيب الا الي الازرار الخاصة برفع 


إذا نضع هذه الاكواد ليصبح الامر طبيعي و 


أو 


TrackBar1l 
لنجده كالتالي قبل إضافة كودنا‎ 


Private Sub TrackBarl1 Scroll (ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles TrackBar1.Scroll 


End Sub 


نأتي الان للكود 


Me.player.Ctlcontrols.currentPosition = (Me.TrackBar1.Value / 100) * 
Me.player.currentMedia. duration 


ليصبح الكود اکل 


Private Sub TrackBarl1 Scroll (ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles TrackBar1.Scroll 


Me.player.Ctlcontrols.currentPosition = (Me.TrackBar1.Value / 100) * 
Me.player.currentMedia. duration 


End Sub 


کے لیوو کاس ی 


TrackBar2 
وهو المسؤل عن رفع وخفض الصوت‎ 


Private Sub TrackBar2_ Scroll (ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles TrackBar2.Scroll 


End Sub 


نضع هذا الكود لنؤكد تساوي قيمة 2٤۸83حهة٣إآ‏ مع مقدار الصوت في المشغل 


On Error Resume Next 
player.settings.volume = Me.TrackBar2.Value 


ليكون الكود الكلي 


Private Sub TrackBar2_ Scroll (ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles TrackBar2.Scroll 


On Error Resume Next 


player.settings.volume = Me.TrackBar2.Value 


End Sub 


لو لاحظت عند بداية التشغيل نجد مؤشر الصوت ( الخاص بالرفع 
والخفض لا تكون قيمتة في المنتصف ) 


ولحل هذه المشكله نكتب هذا الكود في المحرر الخاص بالفورم ١‏ 


ليكون الكود كالتالي 


Private Sub Forml1 Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase. Load 


Me.TrackBar2.Value = Me.player.settings.volume 


End Sub 


وهنا نجد المؤشر قد انتصف ال TrackBar2‏ 


والان یمکنط رفع الصوت وخفضة دون أستخدام الازرار الخاصة بذلك 
فقط ضع الموس علي المؤشر وقم بتحريكة يمينا لتري الصوت قد إرتفع 
ويسارا لتجد الصوت قد انخفض 


ونكتب الان الكود الكلي .... لكل ما قمنا بة في الماضي 


Public Class Forml 


Private Sub Forml1 Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase. Load 


Me.TrackBar2.Value = Me.player.settings. volume 


End Sub 


= (Me.TrackBar1.Value / 


e As System.EventArgs) Handles TrackBar1.Scroll 


Private Sub TrackBarl Scroll (ByVal sender As System.Object, ByVal 
Me.player.Ctlcontrols.currentPosition 


100) * Me.player.currentMedia. duration 


End Sub 


Private Sub opd_FileOk (ByVal sender As System.Object, ByVal e As 
System. ComponentModel.CancelEventArgs) Handles opd.FileOk 


End Sub 


Private Sub Buttoné6_Click (ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button6.Click 


Try 
opd.Filter = "Media Files 
(*.wav; *.mp3; *.mp4; *.mpeg; *.dat; *.wma; *.wmv;*.rm;*.ram; *.avi;*.asf;*. 
3gp; *.mov;*.divx;*.swf;*.flv;*.bmp; *.png;*.JPO0; *.jepg;*.gGif) |*.wav; * 
mp3; *.mp4; *.mpeg; *.dat; *.wma; *.wmv; *.rm; *.ram;*.avi;*.asf; *.39P; *.mov 
;*.divx;*.swf;*. flv; *.bmp; *.png; *.JP9; *.Jepg; *.gif|ALL 
Windows.Forms.DialogResult.OK Then 


Files (*.*) |*.*" 
If opd.ShowDialog () 
= opd.FileName 


player. URL 
player.Ctlcontrols.play () 


End If 
Catch ex As Exception 
MessageBox. Show ("Some error occur so can't play media", 


"Error", MessageBoxButtons. OK, MessageBoxIcon.Error) 


End Try 
End Sub 


Private Sub Button1l Click (ByVal sender As System.Object, ByVal e 


As System.EventArgs) Handles Button1.Click 
player.Ctlcontrols.play () 


End Sub 
Private Sub Button9_ Click (ByVal sender As System.Object, ByVal e 


As System.EventArgs) Handles Button9.Click 


player.settings.volume = player.settings.volume + 10 
Me.player.settings.volume 


Me.TrackBar2.Value = 


End Sub 


Private Sub Button7_Click (ByVal sender As System. Object, ByVal e 
As System.EventArgs) Handles Button7.Click 
If Me.player.settings.mute = False Then 
Me.player. settings.mute = True 


Me. TrackBar2.Enabled = False 
Else 
Me.player.settings.mute = False 


Me. TrackBar2. Enabled = True 
End If 
End Sub 


Private Sub Button2 Click (ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button2.Click 
player.Ctlcontrols. stop () 
End Sub 


Private Sub Button3 Click (ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button3.Click 
player.Ctlcontrols.pause () 
End Sub 


Private Sub Button4 Click (ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button4.Click 
player.Ctlcontrols. fastForward () 
End Sub 


Private Sub Button5_ Click (ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button5.Click 
player.Ctlcontrols. fastReverse () 
End Sub 


Private Sub Button8 Click (ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button8.Click 
player. settings. volume = player.settings. volume —- 10 
Me. TrackBar2. Value = Me.player. settings. volume 


End Sub 


Private Sub TrackBar2 Scroll (ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles TrackBar2.Scroll 
On Error Resume Next 
player.settings.volume = Me.TrackBar2.Value 


End Sub 


End Class 


ويهذا ننتهي من المرحله الاولي وننتقل للمرحلة الثانية من البرنامج 
ننتقل الان لكيفية تكرار الملف الصوتي 


..... لو أردت مثلا ان تحفظ سورة من كتاب الله ونويت أن تكررها مرات 
كذ ۵ عتما م تعد 0 امرة أخري 


إذا حديثنا عن هذة النقطه 
نعود مرة أخري إلي شكل الفورم الخاص بنا كما هو موضح 


@ مسل صو‎ - Microsoft Visual Basic 2008 [xpress Ldition 
File Edit view Project Build Debug Data Tools Window Help 


REE AF KK ùA > 2E RF BR QA; 
2 Form1.p*  Form1.vb [Design] | A solution Explorer HX 
ع‎ al Bl ê | E E 
1 | 35 مشغب صوت‎ 
EA) My Project 
E] Formi.vb 
ListBox 
| 
آ‎ 
| 3q solren explorer OTS IES 
ا‎ 
el1 System. Windows, Forms, Labe 
Î ENE 
ا‎ AllowDrop False ھا‎ 
Anchor Top, Left 
2 3 4 5 AutoElipsie False 3 
| EE 2 
Backcolor control 
Barderstyle Mane 
| Causesvalidatior True 
آ‎ CantextMernuStr (nane) 
ÎÛ Cursor Default 
ا‎ 
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QoEnars|) A0 Warnings | (Ui) 0 Messages AutoSize 
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نقوم بإضافة 0×1ط)ءعطع كما هو موضح ونسمية ... تكرار الصوت 


E 


Form1.yb [Design]* 


a 


CheckBox1 System. Windows.Forms | 
: EZA EEE 


RightToLeft 
|| Sze 

|| Tabindex 
Tabstep 


Tag 1 
Text کم تکرار انصوت‎ 
TextAlign middleLeft 

| TextimageRelati Overlay 

| _ ree E 


ونفتح محرر الكود الخاص به ليظهر لنا كالتالي 


Private Sub CheckBox1 CheckedChanged (ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged 


End Sub 
ونأتي لإضافة الكود التالي‎ 


If CheckBox1. Checked = True Then 
Me.player.settings. setMode ("loop", True) 
Else 
Me.player.settings. setMode ("loop", False) 
End If 


ليكون الكود الكلي كما يظهر 


Private Sub CheckBox1 CheckedChanged (ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged 


If CheckBox1.Checked = True Then 
Me.player.settings. setMode ("loop", True) 
Else 
Me.player.settings. setMode ("loop", False) 
End If 


End Sub 


لو ال 1×هط)ععطع عليها علامة صح .. أو أمامها علامة 


Tf CheckBox1. Checked = True Then 


قم بعمل لووب ( تكرار ) للصوت 


Me.player.settings. setMode ("loop", True) 


“* XI 
والا فلا تكرر‎ 
Else 
Me.player.settings. setMode ("loop", False) 


وقد بسكا تحذية عذد مر أت الل ب أ التكر ار و لكا سر كها باذ اة 


ولو قمت الان بعمل تجربة للبرنامج .... وقمت بعمل علامة صح امام 
تكرار الصوت سيظل الصوت يتكرر دون توقف إلي ان تزيل علامة الصح 


قبل ان ننتقل لنقطة أخري ... نريد أن نعرف ماذا نعني بالبلي ليست 


ال اهام فكرته بسيطه 

وهو عباره عن ×50ءآ| يقوم المستخدم باضافة المقاطع الصوتيه او المرنيه اليها 

ويقوم برنامج بالمرور عليها واحدا تلو الاخر عند نهاية المقطع الحالي 

ويمكنك اضافة المقاطع الصوتيه الى ال اوا عن طريقوه|اDia‏ "peم©ء‌F۴il‏ 

واضافة ال اهم الذي يختاره المستخدم الى ال اءآ| وسوف يسهل عليك تشغيله بعد ذلك حيث انك 
تملك هم الملف 


وقم بحفظ رقم الملف المشغل حاليا في القائمه وعند انتهائه قم بتشغيل الملف التالي له في القائمه 


هذة الفكرة الشاملة لما فعلنا وما نريد ان نكملة 
ننتقل الان للنقطة الاهم 

وهي خاصية السحب والافلات 

نعم لك الحق أن تطور برنامجك من برنامج يفتح ملف واحد فقط ... ألي برنامج يمكن ان يفتح ملفات 
كثيرة ومتتالية 

ولك الحق أيضا ان تطورة بحيث يقبل بخاصية السحب والإفلات ( سحبب عدد كبير من الملفات 


الصوتية عن طريق الماوس وأفلاتها في برنامجك ... حتي تعمل متتالية ... كما في البرامج الشهيرة 
( 


إذا حان الوقت لمعرفة الفكرة البسيطة لعملية السحب والإفلات ( ولك الحق في معرفتها ) 


الفكره وبكل بساطة 


بالنسبة لموضوع ال ( السحب والافلات ) مهال ١ه‏ وها فهو يعتمد بشكل اساسي على 


Drag Drops : drag Enter lak ùıدح‎ 


وهذين الحدثين موجودين في اي اداة في الفيجوال بيسك 
اولا غير الخاصیة م٥5۲ ۸||٥W‏ للاداه التي ترغب بعمل م50 ۵ه وج5 بها وهي 


×0 bاisا‏ في حالتنا الىT1rue‏ 


ثانيا قم بكتابة الكود التالي في الحدث ۲٥ا٤‏ 9م,۲ لنفس الاداہ×0طءإا 


File Edit ew Project Buld Debug Data Tools Window Help 
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Ê و‎ 8 # DragOver 
He.player.settings.setMode ["loop", False Ear 
ELE # Enabledchanged 
۳ End Sub ¥ Erter 
¥ FontChanged 
ù Private Sub Formi_Load{ByVal sendgyfs System.Object, By # ForeCalorchanged 
He.TrackBarda Value = Me.p EF. settings, wo Lume ¥ Format 
- n ormatInfoChangêt 
End sub ¥ FormatinfoChanged 
# Farmatstringchanged | olution Exmlorer 
= Private Sub ListBox1 SelectedIndexChanged (ByWal sender As # FormattingEnabledChanged 
# GiveFeedback Propertiss: Nx 
سو فصع م‎ E ListBox1_SelectedIîndexChangec > 
E Kae HandleCreater 
# HandleDestroyed 1 
¥ HeêlpRequested 
# ImeModeChanged 
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ا‎ 
ا‎ 4 = 
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Microsoft Visual Basic 2008 [xpress Ldition‏ - مسقل صوت 
File Edit‏ 


YE AF # aa 


£ Form1,vb™ i Formmt.vb [Design] 


mew Project Build Debug 


Data 
2 


Tools Window Help 
4~ 


ro 


start Page Û 


ھ ق چ ف ج چ 


On Errar Resume Next 


player sert ings. vo lumê 
: End Sub 


Declarations} 


He. TrackBar2 .Value 


my Project 


Formi vb 
Private Subh CheckEox1_CheckedChanged{(Byial sender Ais 


System.Object, By¥al e 1s System.EventArgs) 
If CheckEox1.Checked = True Then 
He.player settings .serlode ("loop”, 


Handles CheckBox1 .Check 
True) 

Else 

End If 


He.player.settings.setlode ["loop”", False] 
End sub 


Private Sub Formi_Load{ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HyBase. Load 
Me.TrackBar2 .Yalue = Me.player. settings. ¥o lume 
- End sub 


أ 

أ 

ês ListBox1 . 
أ‎ 


EH Private Sub ListBoxl SelectedIndexThanged (By¥al sender As System, Opject, ByVal e As System, EventArgs) Handles ListBox1.3 ل‎ 

COM Class False 
۳ End Sub COM visible True 
-End Class = Serializable False 


COM lass 
|| || Expose Class to Com. 
11 


Ln B6 Cal1 Chi 


INS 


Private Sub ListBox1_ 
System.Windows.Forms.Drag 


DragEnter (ByVal sender As Object, 


ByVal e As 
HmventArgs) Handles ListBox1.Drag 


Enter 


End Sub 


ونكتب هذا الكود 


If e.Data.GetDataPresent(DataFormats.FileDrop) Then 


e.Effect = DragDropEffects.Copy 
Else 


e.Effect = DragDropEffects.None 
End If 


ليکون الكلي 


Private Sub ListBoxl1 DragEnter (ByVal sender As Object, ByVal e As 
System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter 


If e.Data.GetDataPresent (DataFormats.FileDrop) Then 
e.Effect = DragDropEffects. Copy 

Else 
e.Effect = DragDropEffects.None 

End If 


End Sub 


الشرح البسيط 


هذا الكود مسئول وبكل بساطه عن تغيير ايقونة المؤشر الى "نسخ" بدل من "منع" في حالة 
وجد ان الشئ القادم اليه هو ملف 

والداله ۲ ese‏ مtdatapهG‏ هي داله تقوم بختبار هل البيانات القادمه من لمستخدم مثل 
الموجوده في مدخلاتها ام لا 

وفي هذه الحاله نظابق البيانات مع النوع 

Dataformats.FileDrop 


اي اننا نتاکد ان البيانات هي من نو ع٤‏ |۴ 


ثالثا في حدث م٥5۲‏ وgھا5‏ وھو الاھم 


کما موضح 
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i 


plorer 


[lÎ ¥ Dragprop ك ھا ج ا‎ 
[E(Declarations) 2 و‎ 
ayer .sertings volume = He .TratkBar2 Value ¥ Backcalorchanged N f oe 
¥ BindingContextChanged Formit vh 
¥ Causeswalidationcharged 
¥ ChangeUICues 
#F ik 
¥ Clertsizechanged 
¥ ContextMenuChanged 
¥ Contextmenustripchanged 
e.player.settings.setHode ["loop”, False) ¥ Cortrolhdded 
ا ا‎ Z ContralRemoved 

End Sub $ Cursorchanged‏ ع 
DataSourcechanged‏ ¥ 

Formi_Load{ByVal sender As System.Object, By ¥ DisplayMemberchanged 
kBarda . Value = He.player. settings. ¥o lume % Disposed 
¥ DorkChanged 
# Doubleclick 


= Private SubfListBox1 DragDrop (ByVal sender As Cbjeêı DragDrap 
# DragEnter 
الحدة المللوبه‎ 


¥ Dragleave 

¥ DragOver 

# Drawlkem 

¥ Enabledchanged 

# Enter 

7 FontChanged 

¥ ForeCalorchanged 
# Format 

F Formatinfochanged 
¥ FormatstringChanged 
¥ FormattingEnabledchanged 5 


Subh CheckEox1_CheckedChanged {ByVal sender 1s Syst 
ItfcheckEox1.Checked = True Then 
Ke.player.settings.setMode ("loop”, True) 


Els 


8 Private Sb 


Solution Explorer E 


End Sub 


3 Private Sub LfstBox1 DragEnter (ByVal sender 4s Object, By' 
etDataPresent (PataFormats.FileDrop) Then 
e.Effeft = DragPropEffects, Copy 


e.Effedf = DragDropEffects.Hone 


ectedIndexChanged (ByVal sender As System.Object, ByVal = 1s System.EventArgs) Handles ListBox1.5 


. End Sub 
LEna class 


8 7 E 


Ready Ln Bê Coals chs INS 


يظهر الكود كالتالي 


Private Sub ListBoxl1l_ DragDrop (ByVal sender As Object, ByVal e As 
System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop 


End Sub 


نكتب هذا الكود 


If e.Data.GetDataPresent(DataFormats.FileDrop) Then 
Dim filePaths As String() = 
CType(e.Data.GetData(DataFormats.FileDrop), String()) 
For Each s As String In filePaths 
Dim FI As New IO.Filelnfo(s) 
Dim exten As String = 


FI.Name.Substring(FI.Name.LastlndexOf("'.") + 1, FI.Name.Length - 


As 


(FI.Name.LastlndexOf(".") + 1)) 
If exten = "mp3" Or exten = "wmv" Then 
ListBox1.ltems.Add(s) 
End If 
Next 
End If 


ليكون الكود الكلي 


Private Sub ListBoxl1 DragDrop (ByVal sender As Object, ByVal e 
System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop 


If e.Data.GetDataPresent (DataFormats.FileDrop) Then 
Dim filePaths As String () 
CType (e.Data.GetData (DataFormats.FileDrop), String ()) 
For Each s As String In filePaths 
Dim FI As New IO.FilelInfo (s) 
Dim exten As String 
FI.Name.Substring (FI.Name.LastIndexOf (".") + 1, FI.Name.Length 
(FI.Name.LastIndexOf (".") + 1)) 


If exten = "mp3" Or exten = "wmv" Then 
ListBox1l1. Items .Add (s) 
End If 
Next 


End If 


End Sub 


الشرح البسيط للكود السابق 


نقوم بالتاکد مره ثانيه ان الشئ المسحوب هو ۴|1٤‏ بنفس الشرط السابق 


ثم عمل مصفوفة نصيه وملنها بجميع مسارات الملفات القادمه ( في هذه الحاله يمكن للمستخدم 


سحب اكثر من ملف في نفس الوقت) وملنها بالداله هةلك]هم6 وهي تقوم بجمع بيانات 
الملفات المسحوبة وقمنا بحويلها الى ومأإ)S‏ عن طريق الداله مم٥‏ لكي نحصل على 
EA‏ 

وبعدها قمنا بالتاكد من امتداد الملف هل هو ملف صوتي او مرئي او لا وانا قمت بختباره عن 
نوعين فقط وعليك تكملة باقي الانواع 

قمنا بعملية التاكد عن طريق السير على الملفات باستخدام الجملة ۴٠٣6۵٥٣‏ واستخدمنا 
الكلاس N۴0‏ |ع 0.۴1| لمعرقة اسم الملف بدون كامل المسار ثم قمت بقص الجزء الخاص 
بالامتداد باستخدام الداله وہاbsں؟‏ والداله ؟fه×٥‏ ل" 1اءه| لمعرفة مكان اخر "." في اسم 
الملف وقمت بالقص من بدايتها الى نهاية اسم الملف 

وقمت باختبار الاسم هل هو مطابق للامتداد ام لا 


اذا كان فعلا يطابقه اقوم باضافة مسار الملف الى القائمه×0طأءاا| 
ا 

في الاست بوكس ×0 ءا 

لا تنسي تغير الخاصية مهال س0|]اج للقيمة عuا)‏ 
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الحمد للة رب العالمين فقد أتممنا أهم جزئية في برنامجنا الرائع 


بقي الان كيفية تشغيل المواد من البلي ليست ( او الليست بوكس ) 


تعالو الان نري خطوة السحب والافلات ونستمتع بما انجزناه في 
البرنامج 


نقوم بضغط ۴5 لتشغيل البرنامج 
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كدا تمام جدا ولكن بقي لنا تشغيل المواد عند الضغط عليها وهي في البلي 
ا 


کما هو معروف في برامج لصوت 
نأخذ ( جردل قهوة هھههههههه ( ونعود لنکمل ما انجزناة 


نأتي الان لكيفيه تشغيل الملفات الصوتية عند الضغط عليها في الليست 
بوكس بعد الانتهاء من عملية السحب والإفلات 


نفتح محرر الكود لل listbox1‏ ونحتب في الحدث SelectedIndexChanged‏ 
الخاص بالليست بوكس ١‏ 


ليكون الكود كالتالي 


Private Sub ListBoxl1l SelectedIndexChanged (ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
ListBox1.SelectedIndexChanged 


Dim Filename As String = ListBox1. SelectedItem 
player.URL = Filename 
player.Ctlcontrols.play () 

End Sub 


الفا لر فة رمات عن الما ال ةة 
سيتم عرض المعلومات في 1 1عطها1 
اولا نقوم بفتح محرر الكود للتايمر 


Private Sub Timerl Tick (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Timer1l.Tick 


End Sub 


On Error Resume Next 


Me.TrackBar1.Value = 100 
Me.player.Ctlcontrols.currentPosition / 
Me.player.currentMedia. duration 

Me.Label1.Text = "Jıaiûi : " & Me.player.currentMedia.name & 
vbCrLf & "ilJl#l : " & Me.player.Ctlcontrols.currentPositionString & " 
jù» : " & Me.player.currentMedia.durationString 


مع تغير خصائص التايمر 


Enable >>>>y>y>yIyIں>>>>>>>‎ {UE 
٠٠١ والقيمة إجرإم)ام] إلي‎ 


إلي هنا ننهي هذا الكتاب ... وبفضل الله للكلام بقيه في كتاب أخر 


التواصل عن طريق الايميل 


Eng meda2003 @ yahoo.com 


مهندس إسماعيل علي النجار 


